home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / swagg-m / misc.swg / 0072_Program Origin.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  218b  |  12 lines
  1.  
  2. {$X+}  { Need this for easy handling of Asciiz strings }
  3. var
  4.   parentseg : ^word;
  5.   p : pchar;
  6. begin
  7.   parentseg := ptr(prefixseg,$16);
  8.   p := ptr(parentseg^-1,8);
  9.   writeln('I was launched by ',p);
  10. end.
  11.  
  12.